home *** CD-ROM | disk | FTP | other *** search
/ Serving Financial Service…olutions Suite 1994 Fall / Serving Financial Services Solutions Suite 1994 Fall.iso / Apps / FirstClass / Tailor.app / PS__Feedback.data < prev    next >
Text File  |  1994-12-12  |  556b  |  85 lines
  1. %! Adobe packPS Version 2.0 (9)
  2.  
  3. gsave
  4. 1
  5. setgray
  6. clippath
  7. pathbbox
  8. newpath
  9. 3
  10. index
  11. 3
  12. index
  13. translate
  14. 3
  15. -1
  16. roll
  17. sub
  18. 3
  19. 1
  20. roll
  21. exch
  22. sub
  23. 0.7
  24. mul
  25. exch
  26. scale
  27. /EngineFeedbackGstate
  28. gstate
  29. def
  30. grestore
  31. true
  32. setglobal
  33. /EngineFeedbackDict
  34. 3
  35. dict
  36. def
  37. false
  38. setglobal
  39. //EngineFeedbackDict
  40. /progress
  41. 0
  42. put
  43. /showprogress
  44. {
  45. //EngineFeedbackDict
  46. begin
  47. currentfile
  48. bytesavailable
  49. leftbytes
  50. add
  51. totalbytes
  52. div
  53. 1
  54. exch
  55. sub
  56. dup
  57. progress
  58. sub
  59. 0.01
  60. ge
  61. {
  62. dup
  63. /progress
  64. exch
  65. def
  66. gsave
  67. EngineFeedbackGstate
  68. setgstate
  69. 0
  70. exch
  71. 0
  72. exch
  73. 1
  74. rectfill
  75. grestore
  76. }
  77. {
  78. pop
  79. }
  80. ifelse
  81. end
  82. }
  83. bind
  84. def
  85.